Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Stack Starter ß.976/Stack Starter fl.976/card_7889.txt

Text File | 1988-08-03 | 15.1 KB | 700 lines

-- card: 7889 from stack: in.976
-- bmap block id: 0
-- flags: 0000
-- background id: 2295
-- name: multi-icon buttons


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=53 top=80 right=101 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ‡Help  fiFirst  ŸPrev  €Home  ⁄Next  flLast  ‹Pop
----- HyperTalk script -----
on mouseUp
  get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 7))

  if it is 0 then
    scroll D
    doMenu "Help"
  else if it is 1 then
    scroll L
    doMenu "First"
  else if it is 2 then
    scroll L
    go this card
    --go prev card
  else if it is 3 then
    scroll D
    doMenu "Home"
  else if it is 4 then
    scroll R
    go this card
    --go next card
  else if it is 5 then
    scroll R
    doMenu "Last"
  else if it is 6 then
    scroll U
    pop card
  end if
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=55 top=116 right=151 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 7))

  if it is 0 then
    scroll D
    doMenu "Help"
  else if it is 1 then
    scroll L
    doMenu "First"
  else if it is 2 then
    scroll L
    go this card
    --go prev card
  else if it is 3 then
    scroll D
    doMenu "Home"
  else if it is 4 then
    scroll R
    go this card
    --go next card
  else if it is 5 then
    scroll R
    doMenu "Last"
  else if it is 6 then
    scroll U
    pop card
  end if
end mouseUp



-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=346 top=105 right=222 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 7))

  if it is 0 then
    scroll L
    doMenu "First"
  else if it is 1 then
    scroll L
    go this card
    --go prev card
  else if it is 2 then
    scroll D
    doMenu "Home"
  else if it is 3 then
    scroll R
    go this card
    --go next card
  else if it is 4 then
    scroll R
    doMenu "Last"
  else if it is 5 then
    scroll U
    pop card
  else if it is 6 then
    scroll D
    doMenu "Help"
  end if
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=388 top=105 right=222 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 7))

  if it is 0 then
    scroll L
    doMenu "First"
  else if it is 1 then
    scroll L
    go this card
    --go prev card
  else if it is 2 then
    scroll D
    doMenu "Home"
  else if it is 3 then
    scroll R
    go this card
    --go next card
  else if it is 4 then
    scroll R
    doMenu "Last"
  else if it is 5 then
    scroll U
    pop card
  else if it is 6 then
    scroll D
    doMenu "Help"
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=55 top=168 right=189 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ‡ fi Ÿ € ⁄ fl ‹
----- HyperTalk script -----
on mouseUp
  get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 7))

  if it is 0 then
    scroll D
    doMenu "Help"
  else if it is 1 then
    scroll L
    doMenu "First"
  else if it is 2 then
    scroll L
    go this card
    --go prev card
  else if it is 3 then
    scroll D
    doMenu "Home"
  else if it is 4 then
    scroll R
    go this card
    --go next card
  else if it is 5 then
    scroll R
    doMenu "Last"
  else if it is 6 then
    scroll U
    pop card
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=252 top=168 right=207 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 6039 / 6039
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 3))

  if it is 0 then
    scroll L
    doMenu "First"
  else if it is 1 then
    repeat until the mouseClick
      scroll L
      go this card
      --go to prev card
    end repeat
  else if it is 2 then
    scroll L
    go this card
    --go to prev card
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=297 top=168 right=207 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 6038 / 6038
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 3))

  if it is 0 then
    scroll R
    doMenu "last"
  else if it is 1 then
    repeat until the mouseClick
      scroll R
      go this card
      --go next card
    end repeat
  else if it is 2 then
    scroll R
    go this card
    --go next card
  end if
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=55 top=209 right=230 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ÿ Which Card? ⁄
----- HyperTalk script -----
on mouseUp
  if (item 1 of the clickloc) < (item 1 of loc of me) then
    scroll L
    go this card
    --go prev card
  else
    scroll R
    go this card
    --go next card
  end if
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=55 top=250 right=271 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Î Í Ï
----- HyperTalk script -----
on mouseUp
  get trunc(((item 1 of the clickloc) - (item 1 of the rect of me)) / (((item 3 of the rect of me) - (item 1 of the rect of me)) / 3))

  if it is 0 then
    scroll L
    go this card
    --go prev card
  else if it is 1 then
    scroll D
    doMenu "Home"
  else if it is 2 then
    scroll R
    go this card
    --go next card
  end if
end mouseUp


-- part 10 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=202 top=233 right=272 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 4334 / 4334
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Choose
----- HyperTalk script -----
on mouseUp
  put (item 1 of the clickLoc)-(item 1 of the rect of the target) into A
  put (item 1 of the clickLoc)-(item 3 of the rect of the target) into B
  put (item 2 of the rect of the target)-(item 2 of the clickLoc) into C
  put (item 4 of the rect of the target)-(item 2 of the clickLoc) into D
  put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  put (item 2 of the clickLoc) - (item 2 of the Loc of me) into F
  if abs(E) < 4 then
    if abs(F) < 4 then
      repeat 2
        repeat with i = 4332 to 4334
          flash 1
          set icon of me to i
        end repeat
      end repeat
      wait 60
      hide msg
      exit mouseUp
    end if
  end if
  if (A < abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4331
      set icon of me to 4334
      scroll D
      go this card
      put "Go to the HomeCard"
    else if (abs(C) > D) then
      set icon of me to 4330
      set icon of me to 4334
      scroll R
      go to this card
      put "Go to the Next Card"
    end if
  end if
  if (A > abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4328
      set icon of me to 4334
      scroll L
      go to this card
      put "Go to the Prev Card"
    else if (abs(C) > D) then
      set icon of me to 4329
      set icon of me to 4334
      scroll U
      go this card
      put "Pop a Card"
    end if
  end if
  wait 60
  hide msg
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=252 top=233 right=272 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 6037 / 6037
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 3))

  if it is 0 then
    scroll L
    go this card
    --go to prev card
  else if it is 1 then
    repeat until the mouseClick
      scroll L
      go this card
      --go to prev card
    end repeat
  else if it is 2 then
    scroll L
    doMenu "First"
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=296 top=233 right=272 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 6036 / 6036
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get trunc(((item 2 of the clickloc) - (item 2 of the rect of me)) / (((item 4 of the rect of me) - (item 2 of the rect of me)) / 3))

  if it is 0 then
    scroll R
    go this card
    --go next card
  else if it is 1 then
    repeat until the mouseClick
      scroll R
      go this card
      --go next card
    end repeat
  else if it is 2 then
    scroll R
    doMenu "last"
  end if
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=364 top=228 right=278 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 4341 / 4341
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Choose
----- HyperTalk script -----
on mouseUp
  put (item 1 of the clickLoc)-(item 1 of the rect of the target) into A
  put (item 1 of the clickLoc)-(item 3 of the rect of the target) into B
  put (item 2 of the rect of the target) - (item 2 of the clickLoc) - 7 into C
  put (item 4 of the rect of the target) - (item 2 of the clickLoc) - 7 into D
  put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  put (item 2 of the clickLoc) - (item 2 of the Loc of me) + 7 into F
  if abs(E) < 4 then
    if abs(F) < 4 then
      repeat 2
        repeat with i = 4339 to 4341
          flash 1
          set icon of me to i
        end repeat
      end repeat
      wait 60
      hide msg
      exit mouseUp
    end if
  end if
  if (A < abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4338
      set icon of me to 4341
      scroll D
      go this card
      put "Go to the HomeCard"
    else if (abs(C) > D) then
      set icon of me to 4337
      set icon of me to 4341
      scroll R
      go to this card
      put "Go to the Next Card"
    end if
  end if
  if (A > abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4335
      set icon of me to 4341
      scroll L
      go to this card
      put "Go to the Prev Card"
    else if (abs(C) > D) then
      set icon of me to 4336
      set icon of me to 4341
      scroll U
      go this card
      put "Pop a Card"
    end if
  end if
  wait 60
  hide msg
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=432 top=226 right=276 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 4327 / 4327
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Choose
----- HyperTalk script -----
on mouseUp
  put (item 1 of the clickLoc)-(item 1 of the rect of the target) into A
  put (item 1 of the clickLoc)-(item 3 of the rect of the target) into B
  put (item 2 of the rect of the target) - (item 2 of the clickLoc) - 7 into C
  put (item 4 of the rect of the target) - (item 2 of the clickLoc) - 7 into D
  put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  put (item 2 of the clickLoc) - (item 2 of the Loc of me) + 7 into F
  if abs(E) < 4 then
    if abs(F) < 4 then
      repeat 2
        flash 1
        set icon of me to 4326
        flash 1
        set icon of me to 4327
      end repeat
      wait 60
      hide msg
      exit mouseUp
    end if
  end if
  if (A < abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4325
      set icon of me to 4327
      scroll D
      go this card
      put "Go to the HomeCard"
    else if (abs(C) > D) then
      set icon of me to 4324
      set icon of me to 4327
      scroll R
      go to this card
      put "Go to the Next Card"
    end if
  end if
  if (A > abs(B)) then
    if (abs(C) < D) then
      set icon of me to 4322
      set icon of me to 4327
      scroll L
      go to this card
      put "Go to the Prev Card"
    else if (abs(C) > D) then
      set icon of me to 4323
      set icon of me to 4327
      scroll U
      go this card
      put "Pop a Card"
    end if
  end if
  wait 60
  hide msg
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: E004
-- rect: left=93 top=311 right=327 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
end mouseUp



-- part contents for background part 56
----- text -----
multi-icon buttons

-- part contents for background part 78
----- text -----
Prev Card: pushbuttons and switches

-- part contents for background part 79
----- text -----
Next Card: the controls cultivator

-- part contents for card part 2
----- text -----
 ‡     fi    Ÿ     €     ⁄    fl    ‹
Help  First  Prev  Home  Next  Last  Pop

-- part contents for card part 3
----- text -----
fi
 ≈∏
 €
 ‚ÅÑ
 fl
 ‹
 ‡

-- part contents for card part 4
----- text -----
ԨŠ  First
 ≈∏   Prev
 €   Home
 ‚ÅÑ   Next
 fl   Last
 ‹     Pop
 ‡    Help

-- part contents for background part 108
----- text -----
Open Aplication
Organizational Chart
OverLoad

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 68
----- text -----
112,88

-- part contents for background part 82
----- text -----
Free Space:

-- part contents for background part 83
----- text -----
73.00 K